xx <- seq(5, by=4, length.out = 17)
plot (xx %% 15, col=rainbow(3),pch=15, cex=c(1,2))